home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / math / menu.bas < prev    next >
BASIC Source File  |  1994-06-01  |  858b  |  27 lines
  1. 10 CLS
  2. 20 KEY 1,"1":KEY 2,"X2":KEY 3,"X3":KEY 4,"X4":KEY 5,"X5"
  3. 30 FOR I=0 TO 7 STEP 1
  4. 40 SYMBOL (50,50),"数学お助けソフト",4,4,7-I,,,3
  5. 50 NEXT I
  6. 60 SYMBOL (100,50),"数学お助けソフト",3,3,7,,,3
  7. 70 SYMBOL (5,310),"ＰＦ２･･･因数分解   ＰＦ３･･･グラフ",2,2,7,,,1
  8. 80 SYMBOL (5,410),"ＰＦ４･･･二次方程式 ＰＦ５･･･連立方程式",2,2,7,,,1
  9. 90 J=0:K=1:L=2:M=3
  10. 100 WHILE INKEY$=""
  11. 110 SYMBOL (70,170),"入",3,3,7-J,,,1
  12. 120 SYMBOL (70,170),"  力",3,3,K,,,1
  13. 130 SYMBOL (70,170),"    ＝",3,3,7-L,,,1
  14. 140 SYMBOL (70,170),"      ？",3,3,M,,,1
  15. 150 J=J+1:K=K+1:L=L+1:M=M+1
  16. 160 IF J=7 THEN J=0
  17. 170 IF K=7 THEN K=1
  18. 180 IF L=7 THEN L=0
  19. 190 IF M=7 THEN M=1
  20. 195 WEND
  21. 200 Q$=INKEY$ : IF Q$="" THEN 200
  22. 210 IF Q$="2" THEN RUN "INSU.BAS"
  23. 220 IF Q$="3" THEN RUN "GURAFU.BAS"
  24. 230 IF Q$="4" THEN RUN "NIJIHO.BAS"
  25. 240 IF Q$="5" THEN RUN "RENRITU.BAS"
  26. 250 GOTO 200
  27.